home *** CD-ROM | disk | FTP | other *** search
- echo off
- cls
- echo.
- echo ┌─────────────────────────────────────────────────────────────────────────────┐
- echo │ Best of Star─Dot─Star (*.*) Vol 1 │
- echo │ │
- echo │ Disk Installation Program │
- echo │ │
- echo │ Copyright 1988 by PCW Communications, Inc. All rights reserved. │
- echo └─────────────────────────────────────────────────────────────────────────────┘
- echo.
- echo.
- REM ----- Check first parameter
- for %%d in (A: B: C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do if %%d==%1 goto goodarg1
- for %%d in (a: b: c: d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do if %%d==%1 goto goodarg1
- goto badargs
- :goodarg1
- REM ----- Check second parameter
- for %%d in (A: B: C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:) do if %%d==%2 goto goodarg2
- for %%d in (a: b: c: d: e: f: g: h: i: j: k: l: m: n: o: p: q: r: s: t: u: v: w: x: y: z:) do if %%d==%2 goto goodarg2
- goto badargs
- :goodarg2
- REM ----- Reject equal drives
- if %1==%2 goto badargs
- REM ----- Reject source if star.exe is not there
- if not exist %1star.exe goto badargs
- REM ----- Switch to destination drive
- %2
- REM ----- Check if this is an update to an old STAR1 directory
- if exist ..\STAR1\star.exe goto start
- REM ----- Create and/or change to new STAR1 directory
- if not exist STAR1\star.exe md STAR1
- cd STAR1
- :start
- REM ----- Give user a chance to cancel, then install files
- echo Installing %1*.* to %2
- echo.
- pause
- echo.
- echo Installation in progress. Please wait...
- copy %1*.* >nul
- if not exist _WP\readme md _WP >nul
- if not exist _WS\readme md _WS >nul
- if not exist _TURBO\readme md _TURBO >nul
- if not exist _BATCH\readme md _BATCH >nul
- if not exist _BASIC\readme md _BASIC >nul
- if not exist _C\readme md _C >nul
- if not exist _dBASE\readme md _dBASE >nul
- if not exist _123\readme md _123 >nul
- if not exist _PARADOX\readme md _PARADOX >nul
- if not exist _DOS\readme md _DOS >nul
- copy %1\_WP\*.* %2_WP >nul
- copy %1\_WS\*.* %2_WS >nul
- copy %1\_TURBO\*.* %2_TURBO >nul
- copy %1\_BATCH\*.* %2_BATCH >nul
- copy %1\_BASIC\*.* %2_BASIC >nul
- copy %1\_C\*.* %2_C >nul
- copy %1\_dBASE\*.* %2_dBASE >nul
- copy %1\_123\*.* %2_123 >nul
- copy %1\_PARADOX\*.* %2_PARADOX >nul
- copy %1\_DOS\*.* %2_DOS >nul
- star
- goto end
- :badargs
- echo INSTALL.BAT requires source and destination drive letters.
- echo Try running the program again with a command such as:
- echo.
- echo a:install a: c:
- echo.
- echo where a: is the source drive holding the diskette and c: is
- echo the destination drive to which you want to copy files. The
- echo source and destination drives must be different. INSTALL.BAT
- echo will copy all files and directories from the source diskette
- echo to a new directory named STAR1 on the destination drive.
- echo.
- echo.
- echo.
- :end
-